home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / rexx / PGPwithYAM.lha / PGPwithYAM / DecryptMail.rexx next >
OS/2 REXX Batch file  |  1997-10-08  |  1KB  |  52 lines
  1. /* Decrypt a mail with Phil's PGP for YAM
  2.  * $VER: DecryptMail.rexx 1.0 (08-Oct-97) by Roberto Ragusa
  3.  *
  4.  * ATTENTION:
  5.  *   This file overwrites the encrypted mail with the decrypted one.
  6.  *   So anybody who has access to your computer can read it!
  7.  *   If you don't want to have the decrypted version of a mail on
  8.  *   your harddisk, use ReadMail.rexx
  9.  *
  10.  * This script has the advantage that it works perfectly with MIME/UUENC files
  11.  * that were appended to the mail before it was encrypted (so the files are
  12.  * encrypted too).
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. userid     = 'Michael Praschl'    /* To encrypt mails with your personal key, too, */
  18.                                   /* so you can read sent messages */
  19. pgppath    = 'PGP:bin/pgp'
  20.  
  21. pgpcommand = ''
  22.  
  23. CALL CLOSE 'STDOUT'
  24. CALL CLOSE 'STDIN'
  25. CALL OPEN 'STDIN','CON:0/14/1000/200/YAM-REXX/CLOSE'
  26. CALL PRAGMA '*','STDIN'
  27. CALL OPEN 'STDOUT','*'
  28.  
  29. IF ~SHOW('Ports','YAM') THEN DO
  30.   ADDRESS 'COMMAND'
  31.   'Run YAM:YAM NOCHECK HIDE'
  32.   'SYS:RexxC/WaitForPort YAM'
  33. END
  34. IF SHOW('Ports','YAM') THEN DO
  35.   ADDRESS 'YAM'
  36.   GETMAILINFO FILE
  37.   mailfile = RESULT
  38.  
  39.   ADDRESS 'COMMAND'
  40.   'YAM:Rexx/splitmail' mailfile
  41.  
  42.   if exists('ram:body') then
  43.     pgppath pgpcommand 'ram:body -o ram:body.plain'
  44.     if exists('ram:head') then
  45.       if exists('ram:body.plain') then
  46.         'join ram:head ram:body.plain to' mailfile
  47.  
  48.   'delete >NIL: ram:head ram:body ram:body.plain ram:keys ram:selected'
  49.  
  50. END
  51.  
  52.